home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / demos / coppercycle / coppercycle.s < prev    next >
Text File  |  1980-01-06  |  13KB  |  549 lines
  1.  
  2.         section    chuppy,code_c
  3.  
  4.         incdir    'scene1:coding/asm/demos/exsyslib/'
  5.         include    'include/hardware/exsys_takeover.s' ;1st codeline!
  6.  
  7.         lea    $dff000,a6
  8.         move.l  #Copperlist,cop1lch(a6)    ; install custom copperlist
  9.         move.w    d0,copjmp1(a6)        ; clear second copperlist
  10.         move.w    #$c020,intena(a6)    ; return INTENA:
  11.         move.w  #$87c0,dmacon(a6)    ; return DMA:Cop/Blit/Sprite
  12.  
  13.         bsr.w    get_planes
  14.  
  15. main:        cmp.b    #255,$dff006
  16.         bne.s    main
  17.  
  18.         bsr.w    cyclecop
  19.  
  20.         btst    #6,$bfe001
  21.         bne.s    main
  22.         rts
  23.  
  24. ***********************************************************************
  25. *    Set Up the Planes..........
  26. *********************************************************************
  27.  
  28. get_planes    lea    planeptrs,a0    ;get address of copper planes ptrs
  29.         lea    planes,a1    ;address of planes
  30.         move.l    #3-1,d2        ;number of planes -1
  31.  
  32. .loop        move.l    a1,d0        ;store it in d0
  33.         move.w    d0,6(a0)    ;get low word
  34.         swap    d0        ;swap it round
  35.         move.w    d0,2(a0)    ;get high word
  36.         add.l    #10240,a1    ;add single plane size
  37.         add.l    #8,a0        ;add next copper plane ptr
  38.         dbra    d2,.loop    ;do all planes
  39.         rts            ;done!!!
  40.             
  41. *************************************************************************
  42. *    Cycle da copper!!!
  43. ***********************************************************************
  44.  
  45. cyclecop    lea    copst+6,a0    ;addr of first colour
  46.         lea    copst+14,a1    ;addr of second colour
  47.         move.l    #204-1,d0    ;number of colours to cycle
  48.         move.w    (a0),d1        ;store first colour
  49.  
  50. do_cop        move.w    (a1),(a0)    ;move second colour into first
  51.         addq.l    #8,a0        ;add to next colour
  52.         addq.l    #8,a1        ;ditto...
  53.         dbra    d0,do_cop    ;shift all colours
  54.         move.w    d1,(a0)        ;put first colour in last colour
  55.         rts            ;done!!!!
  56.         
  57.  
  58. ***************************************************
  59. *** Datas                    ***
  60. ***************************************************
  61.  
  62. Copperlist:    dc.l    $01200000,$01220000,$01240000,$01260000
  63.         dc.l    $01280000,$012a0000,$012c0000,$012e0000
  64.         dc.l    $01300000,$01320000,$01340000,$01360000
  65.         dc.l    $01380000,$013a0000,$013c0000,$013e0000
  66.  
  67.         dc.l    $008e2c81,$00902bc1,$00920038,$009400d0
  68.         dc.l    $01020000,$01040000,$01080000,$010a0000
  69.         dc.l    $01000200,$01060000,$01fc0000
  70.  
  71. PlanePtrs:    dc.l    $00e00000,$00e20000,$00e40000,$00e60000
  72.         dc.l    $00e80000,$00ea0000
  73.         dc.l    $01003200
  74.  
  75.         dc.l    $01800000,$01820333,$01840555,$01860777
  76.         dc.l    $01880999,$018a0bbb,$018c0ddd,$018e0fff
  77.  
  78.  
  79.  
  80.  
  81. copst        dc.w    $3001,$fffe,$180,$000
  82.         dc.w    $3101,$fffe,$180,$001
  83.         dc.w    $3201,$fffe,$180,$002
  84.         dc.w    $3301,$fffe,$180,$003
  85.         dc.w    $3401,$fffe,$180,$004
  86.         dc.w    $3501,$fffe,$180,$005
  87.         dc.w    $3601,$fffe,$180,$006
  88.         dc.w    $3701,$fffe,$180,$007
  89.         dc.w    $3801,$fffe,$180,$008
  90.         dc.w    $3901,$fffe,$180,$009
  91.         dc.w    $3a01,$fffe,$180,$00a
  92.         dc.w    $3b01,$fffe,$180,$00b
  93.         dc.w    $3c01,$fffe,$180,$00c
  94.         dc.w    $3d01,$fffe,$180,$00d
  95.         dc.w    $3e01,$fffe,$180,$00e
  96.         dc.w    $3f01,$fffe,$180,$00f
  97.         dc.w    $4001,$fffe,$180,$00e
  98.         dc.w    $4101,$fffe,$180,$00d
  99.         dc.w    $4201,$fffe,$180,$00c
  100.         dc.w    $4301,$fffe,$180,$00b
  101.         dc.w    $4401,$fffe,$180,$00a
  102.         dc.w    $4501,$fffe,$180,$009
  103.         dc.w    $4601,$fffe,$180,$008
  104.         dc.w    $4701,$fffe,$180,$007
  105.         dc.w    $4801,$fffe,$180,$006
  106.         dc.w    $4901,$fffe,$180,$005
  107.         dc.w    $4a01,$fffe,$180,$004
  108.         dc.w    $4b01,$fffe,$180,$003
  109.         dc.w    $4c01,$fffe,$180,$002
  110.         dc.w    $4d01,$fffe,$180,$001
  111.         dc.w    $4e01,$fffe,$180,$000
  112.         dc.w    $4f01,$fffe,$180,$100
  113.         dc.w    $5001,$fffe,$180,$200
  114.         dc.w    $5101,$fffe,$180,$300
  115.         dc.w    $5201,$fffe,$180,$400
  116.         dc.w    $5301,$fffe,$180,$500
  117.         dc.w    $5401,$fffe,$180,$600
  118.         dc.w    $5501,$fffe,$180,$700
  119.         dc.w    $5601,$fffe,$180,$800
  120.         dc.w    $5701,$fffe,$180,$900
  121.         dc.w    $5801,$fffe,$180,$a00
  122.         dc.w    $5901,$fffe,$180,$b00
  123.         dc.w    $5a01,$fffe,$180,$c00
  124.         dc.w    $5b01,$fffe,$180,$d00
  125.         dc.w    $5c01,$fffe,$180,$e00
  126.         dc.w    $5d01,$fffe,$180,$f00
  127.         dc.w    $5e01,$fffe,$180,$e00
  128.         dc.w    $5f01,$fffe,$180,$d00
  129.         dc.w    $6001,$fffe,$180,$c00
  130.         dc.w    $6101,$fffe,$180,$b00
  131.         dc.w    $6201,$fffe,$180,$a00
  132.         dc.w    $6301,$fffe,$180,$900
  133.         dc.w    $6401,$fffe,$180,$800
  134.         dc.w    $6501,$fffe,$180,$700
  135.         dc.w    $6601,$fffe,$180,$600
  136.         dc.w    $6701,$fffe,$180,$500
  137.         dc.w    $6801,$fffe,$180,$400
  138.         dc.w    $6901,$fffe,$180,$300
  139.         dc.w    $6a01,$fffe,$180,$200
  140.         dc.w    $6b01,$fffe,$180,$100
  141.         dc.w    $6c01,$fffe,$180,$000
  142.         dc.w    $6d01,$fffe,$180,$010
  143.         dc.w    $6e01,$fffe,$180,$020
  144.         dc.w    $6f01,$fffe,$180,$030
  145.         dc.w    $7001,$fffe,$180,$040
  146.         dc.w    $7101,$fffe,$180,$050
  147.         dc.w    $7201,$fffe,$180,$060
  148.         dc.w    $7301,$fffe,$180,$070
  149.         dc.w    $7401,$fffe,$180,$080
  150.         dc.w    $7501,$fffe,$180,$090
  151.         dc.w    $7601,$fffe,$180,$0a0
  152.         dc.w    $7701,$fffe,$180,$0b0
  153.         dc.w    $7801,$fffe,$180,$0c0
  154.         dc.w    $7901,$fffe,$180,$0d0
  155.         dc.w    $7a01,$fffe,$180,$0e0
  156.         dc.w    $7b01,$fffe,$180,$0f0
  157.         dc.w    $7c01,$fffe,$180,$0e0
  158.         dc.w    $7d01,$fffe,$180,$0d0
  159.         dc.w    $7e01,$fffe,$180,$0c0
  160.         dc.w    $7f01,$fffe,$180,$0b0
  161.         dc.w    $8001,$fffe,$180,$0a0
  162.         dc.w    $8101,$fffe,$180,$090
  163.         dc.w    $8201,$fffe,$180,$080
  164.         dc.w    $8301,$fffe,$180,$070
  165.         dc.w    $8401,$fffe,$180,$060
  166.         dc.w    $8501,$fffe,$180,$050
  167.         dc.w    $8601,$fffe,$180,$040
  168.         dc.w    $8701,$fffe,$180,$030
  169.         dc.w    $8801,$fffe,$180,$020
  170.         dc.w    $8901,$fffe,$180,$010
  171.         dc.w    $8a01,$fffe,$180,$000
  172.         dc.w    $8b01,$fffe,$180,$011
  173.         dc.w    $8c01,$fffe,$180,$022
  174.         dc.w    $8d01,$fffe,$180,$033
  175.         dc.w    $8e01,$fffe,$180,$044
  176.         dc.w    $8f01,$fffe,$180,$055
  177.         dc.w    $9001,$fffe,$180,$066
  178.         dc.w    $9101,$fffe,$180,$077
  179.         dc.w    $9201,$fffe,$180,$088
  180.         dc.w    $9301,$fffe,$180,$099
  181.         dc.w    $9401,$fffe,$180,$0aa
  182.         dc.w    $9501,$fffe,$180,$0bb
  183.         dc.w    $9601,$fffe,$180,$0cc
  184.         dc.w    $9701,$fffe,$180,$0dd
  185.         dc.w    $9801,$fffe,$180,$0ee
  186.         dc.w    $9901,$fffe,$180,$0ff
  187.         dc.w    $9a01,$fffe,$180,$0ee
  188.         dc.w    $9b01,$fffe,$180,$0dd
  189.         dc.w    $9c01,$fffe,$180,$0cc
  190.         dc.w    $9d01,$fffe,$180,$0bb
  191.         dc.w    $9e01,$fffe,$180,$0aa
  192.         dc.w    $9f01,$fffe,$180,$099
  193.         dc.w    $a001,$fffe,$180,$088
  194.         dc.w    $a101,$fffe,$180,$077
  195.         dc.w    $a201,$fffe,$180,$066
  196.         dc.w    $a301,$fffe,$180,$055
  197.         dc.w    $a401,$fffe,$180,$044
  198.         dc.w    $a501,$fffe,$180,$033
  199.         dc.w    $a601,$fffe,$180,$022
  200.         dc.w    $a701,$fffe,$180,$011
  201.         dc.w    $a801,$fffe,$180,$000
  202.         dc.w    $a901,$fffe,$180,$110
  203.         dc.w    $aa01,$fffe,$180,$220
  204.         dc.w    $ab01,$fffe,$180,$330
  205.         dc.w    $ac01,$fffe,$180,$440
  206.         dc.w    $ad01,$fffe,$180,$550
  207.         dc.w    $ae01,$fffe,$180,$660
  208.         dc.w    $af01,$fffe,$180,$770
  209.         dc.w    $b001,$fffe,$180,$880
  210.         dc.w    $b101,$fffe,$180,$990
  211.         dc.w    $b201,$fffe,$180,$aa0
  212.         dc.w    $b301,$fffe,$180,$bb0
  213.         dc.w    $b401,$fffe,$180,$cc0
  214.         dc.w    $b501,$fffe,$180,$dd0
  215.         dc.w    $b601,$fffe,$180,$ee0
  216.         dc.w    $b701,$fffe,$180,$ff0
  217.         dc.w    $b801,$fffe,$180,$ee0
  218.         dc.w    $b901,$fffe,$180,$dd0
  219.         dc.w    $ba01,$fffe,$180,$cc0
  220.         dc.w    $bb01,$fffe,$180,$bb0
  221.         dc.w    $bc01,$fffe,$180,$aa0
  222.         dc.w    $bd01,$fffe,$180,$990
  223.         dc.w    $be01,$fffe,$180,$880
  224.         dc.w    $bf01,$fffe,$180,$770
  225.         dc.w    $c001,$fffe,$180,$660
  226.         dc.w    $c101,$fffe,$180,$550
  227.         dc.w    $c201,$fffe,$180,$440
  228.         dc.w    $c301,$fffe,$180,$330
  229.         dc.w    $c401,$fffe,$180,$220
  230.         dc.w    $c501,$fffe,$180,$110
  231.         dc.w    $c601,$fffe,$180,$000
  232.         dc.w    $c701,$fffe,$180,$111
  233.         dc.w    $c801,$fffe,$180,$222
  234.         dc.w    $c901,$fffe,$180,$333
  235.         dc.w    $ca01,$fffe,$180,$444
  236.         dc.w    $cb01,$fffe,$180,$555
  237.         dc.w    $cc01,$fffe,$180,$666
  238.         dc.w    $cd01,$fffe,$180,$777
  239.         dc.w    $ce01,$fffe,$180,$888
  240.         dc.w    $cf01,$fffe,$180,$999
  241.         dc.w    $d001,$fffe,$180,$aaa
  242.         dc.w    $d101,$fffe,$180,$bbb
  243.         dc.w    $d201,$fffe,$180,$ccc
  244.         dc.w    $d301,$fffe,$180,$ddd
  245.         dc.w    $d401,$fffe,$180,$eee
  246.         dc.w    $d501,$fffe,$180,$fff
  247.         dc.w    $d601,$fffe,$180,$eee
  248.         dc.w    $d701,$fffe,$180,$ddd
  249.         dc.w    $d801,$fffe,$180,$ccc
  250.         dc.w    $d901,$fffe,$180,$bbb
  251.         dc.w    $da01,$fffe,$180,$aaa
  252.         dc.w    $db01,$fffe,$180,$999
  253.         dc.w    $dc01,$fffe,$180,$888
  254.         dc.w    $dd01,$fffe,$180,$777
  255.         dc.w    $de01,$fffe,$180,$666
  256.         dc.w    $df01,$fffe,$180,$555
  257.         dc.w    $e001,$fffe,$180,$444
  258.         dc.w    $e101,$fffe,$180,$333
  259.         dc.w    $e201,$fffe,$180,$222
  260.         dc.w    $e301,$fffe,$180,$111
  261.         dc.w    $e401,$fffe,$180,$000
  262.         dc.w    $e501,$fffe,$180,$101
  263.         dc.w    $e601,$fffe,$180,$202
  264.         dc.w    $e701,$fffe,$180,$303
  265.         dc.w    $e801,$fffe,$180,$404
  266.         dc.w    $e901,$fffe,$180,$505
  267.         dc.w    $ea01,$fffe,$180,$606
  268.         dc.w    $eb01,$fffe,$180,$707
  269.         dc.w    $ec01,$fffe,$180,$808
  270.         dc.w    $ed01,$fffe,$180,$909
  271.         dc.w    $ee01,$fffe,$180,$a0a
  272.         dc.w    $ef01,$fffe,$180,$b0b
  273.         dc.w    $f001,$fffe,$180,$c0c
  274.         dc.w    $f101,$fffe,$180,$d0d
  275.         dc.w    $f201,$fffe,$180,$d0d
  276.         dc.w    $f301,$fffe,$180,$c0c
  277.         dc.w    $f401,$fffe,$180,$b0b
  278.         dc.w    $f501,$fffe,$180,$a0a
  279.         dc.w    $f601,$fffe,$180,$909
  280.         dc.w    $f701,$fffe,$180,$808
  281.         dc.w    $f801,$fffe,$180,$707
  282.         dc.w    $f901,$fffe,$180,$606
  283.         dc.w    $fa01,$fffe,$180,$505
  284.         dc.w    $fb01,$fffe,$180,$404
  285.         dc.w    $fc01,$fffe,$180,$303
  286.         dc.w    $fd01,$fffe,$180,$202
  287.         dc.w    $fe01,$fffe,$180,$101
  288.         dc.w    $ff01,$fffe,$180,$000
  289.         
  290.         dc.l    -2        ;end copperlist
  291.  
  292.  
  293.         section    b,bss_c
  294.  
  295. planes        ds.b    40*256*3
  296.  
  297. Level3Vector    equ $6c
  298. SysCop1        equ $26
  299. _ciaa:        equ $bfe001
  300. _ciab:        equ $bfd000
  301. left        equ 6
  302.  
  303. _custom:    equ $dff000
  304. bltddat:    equ $000
  305. dmaconr:    equ $002
  306. vposr:        equ $004
  307. vhposr:        equ $006
  308. dskdatr:    equ $008
  309. joy0dat:    equ $00a
  310. joy1dat:    equ $00c
  311. clxdat:        equ $00e
  312. adkconr:    equ $010
  313. pot0dat:    equ $012
  314. pot1dat:    equ $014
  315. potgor:        equ $016
  316. serdatr:    equ $018
  317. dskbytr:    equ $01a
  318. intenar:    equ $01c
  319. intreqr:    equ $01e
  320. dskpth:        equ $020
  321. dskptl:        equ $022
  322. dsklen:        equ $024
  323. dskdat:        equ $026
  324. refptr:        equ $028
  325. vposw:        equ $02a
  326. vhposw:        equ $02c
  327. copcon:        equ $02e
  328. serdat:        equ $030
  329. serper:        equ $032
  330. potgo:        equ $034
  331. joytest:    equ $036
  332. strequ:        equ $038
  333. strvbl:        equ $03a
  334. strhor:        equ $03c
  335. strlong:    equ $03e
  336. bltcon0:    equ $040
  337. bltcon1:    equ $042
  338. bltafwm:    equ $044
  339. bltalwm:    equ $046
  340. bltcpth:    equ $048
  341. bltcptl:    equ $04a
  342. bltbpth:    equ $04c
  343. bltbptl:    equ $04e
  344. bltapth:    equ $050
  345. bltaptl:    equ $052
  346. bltdpth:    equ $054
  347. bltdptl:    equ $056
  348. bltsize:    equ $058
  349. bltcmod:    equ $060
  350. bltbmod:    equ $062
  351. bltamod:    equ $064
  352. bltdmod:    equ $066
  353. bltcdat:    equ $070
  354. bltbdat:    equ $072
  355. bltadat:    equ $074
  356. dsksync:    equ $07e
  357. cop1lch:    equ $080
  358. cop1lcl:    equ $082
  359. cop2lch:    equ $084
  360. cop2lcl:    equ $086
  361. copjmp1:    equ $088
  362. copjmp2:    equ $08a
  363. copins:        equ $08c
  364. diwstrt:    equ $08e
  365. diwstop:    equ $090
  366. ddfstrt:    equ $092
  367. ddfstop:    equ $094
  368. dmacon:        equ $096
  369. clxcon:        equ $098
  370. intena:        equ $09a
  371. intreq:        equ $09c
  372. adkcon:        equ $09e
  373. aud0pth:    equ $0a0
  374. aud0ptl:    equ $0a2
  375. aud0len:    equ $0a4
  376. aud0per:    equ $0a6
  377. aud0vol:    equ $0a8
  378. aud0dat:    equ $0aa
  379. aud1pth:    equ $0b0
  380. aud1ptl:    equ $0b2
  381. aud1len:    equ $0b4
  382. aud1per:    equ $0b6
  383. aud1vol:    equ $0b8
  384. aud1dat:    equ $0ba
  385. aud2pth:    equ $0c0
  386. aud2ptl:    equ $0c2
  387. aud2len:    equ $0c4
  388. aud2per:    equ $0c6
  389. aud2vol:    equ $0c8
  390. aud2dat:    equ $0ca
  391. aud3pth:    equ $0d0
  392. aud3ptl:    equ $0d2
  393. aud3len:    equ $0d4
  394. aud3per:    equ $0d6
  395. aud3vol:    equ $0d8
  396. aud3dat:    equ $0da
  397. bpl1pth:    equ $0e0
  398. bpl1ptl:    equ $0e2
  399. bpl2pth:    equ $0e4
  400. bpl2ptl:    equ $0e6
  401. bpl3pth:    equ $0e8
  402. bpl3ptl:    equ $0ea
  403. bpl4pth:    equ $0ec
  404. bpl4ptl:    equ $0ee
  405. bpl5pth:    equ $0f0
  406. bpl5ptl:    equ $0f2
  407. bpl6pth:    equ $0f4
  408. bpl6ptl:    equ $0f6
  409. bplcon0:    equ $100
  410. bplcon1:    equ $102
  411. bplcon2:    equ $104
  412. bpl1mod:    equ $108
  413. bpl2mod:    equ $10a
  414. bpl1dat:    equ $110
  415. bpl2dat:    equ $112
  416. bpl3dat:    equ $114
  417. bpl4dat:    equ $116
  418. bpl5dat:    equ $118
  419. bpl6dat:    equ $11a
  420. spr0pth:    equ $120
  421. spr0ptl:    equ $122
  422. spr1pth:    equ $124
  423. spr1ptl:    equ $126
  424. spr2pth:    equ $128
  425. spr2ptl:    equ $12a
  426. spr3pth:    equ $12c
  427. spr3ptl:    equ $12e
  428. spr4pth:    equ $130
  429. spr4ptl:    equ $132
  430. spr5pth:    equ $134
  431. spr5ptl:    equ $136
  432. spr6pth:    equ $138
  433. spr6ptl:    equ $13a
  434. spr7pth:    equ $13c
  435. spr7ptl:    equ $13e
  436. spr0pos:    equ $140
  437. spr0ctl:    equ $142
  438. spr0data:    equ $144
  439. spr0datb:    equ $146
  440. spr1pos:    equ $148
  441. spr1ctl:    equ $14a
  442. spr1data:    equ $14c
  443. spr1datb:    equ $14e
  444. spr2pos:    equ $150
  445. spr2ctl:    equ $152
  446. spr2data:    equ $154
  447. spr2datb:    equ $156
  448. spr3pos:    equ $158
  449. spr3ctl:    equ $15a
  450. spr3data:    equ $15c
  451. spr3datb:    equ $15e
  452. spr4pos:    equ $160
  453. spr4ctl:    equ $162
  454. spr4data:    equ $164
  455. spr4datb:    equ $166
  456. spr5pos:    equ $168
  457. spr5ctl:    equ $16a
  458. spr5data:    equ $16c
  459. spr5datb:    equ $16e
  460. spr6pos:    equ $170
  461. spr6ctl:    equ $172
  462. spr6data:    equ $174
  463. spr6datb:    equ $176
  464. spr7pos:    equ $178
  465. spr7ctl:    equ $17a
  466. spr7data:    equ $17c
  467. spr7datb:    equ $17e
  468. color00:    equ $180
  469. color01:    equ $182
  470. color02:    equ $184
  471. color03:    equ $186
  472. color04:    equ $188
  473. color05:    equ $18a
  474. color06:    equ $18c
  475. color07:    equ $18e
  476. color08:    equ $190
  477. color09:    equ $192
  478. color10:    equ $194
  479. color11:    equ $196
  480. color12:    equ $198
  481. color13:    equ $19a
  482. color14:    equ $19c
  483. color15:    equ $19e
  484. color16:    equ $1a0
  485. color17:    equ $1a2
  486. color18:    equ $1a4
  487. color19:    equ $1a6
  488. color20:    equ $1a8
  489. color21:    equ $1aa
  490. color22:    equ $1ac
  491. color23:    equ $1ae
  492. color24:    equ $1b0
  493. color25:    equ $1b2
  494. color26:    equ $1b4
  495. color27:    equ $1b6
  496. color28:    equ $1b8
  497. color29:    equ $1ba
  498. color30:    equ $1bc
  499. color31:    equ $1be
  500. open:        equ -30
  501. close:        equ -36
  502. read:        equ -42
  503. write:        equ -48
  504. input:        equ -54
  505. output:        equ -60
  506. seek:        equ -66
  507. deletefile:    equ -72
  508. rename:        equ -78
  509. lock:        equ -84
  510. unlock:        equ -90
  511. duplock:    equ -96
  512. examine:    equ -102
  513. exnext:        equ -108
  514. info:        equ -114
  515. createdir:    equ -120
  516. currentdir:    equ -126
  517. ioErr:        equ -132
  518. CreateProc:    equ -138
  519. exit:        equ -144
  520. loadseg:    equ -150
  521. unloadseg:    equ -156
  522. getpacket:    equ -162
  523. queupacket:    equ -168
  524. deviceproc:    equ -174
  525. setcomment:    equ -180
  526. setprotection:    equ -186
  527. datestamp:    equ -192
  528. delay:        equ -198
  529. waitforchar:    equ -204
  530. parentdir:    equ -210
  531. IsInteractive:    equ -216
  532. Execute:    equ -222
  533.  
  534. AbsExecBase:    equ 4
  535. forbid        equ -132
  536. permit        equ -138
  537. allocmem:    equ -198
  538. freemem:    equ -210
  539. getmsg:        equ -372
  540. replymsg:    equ -378
  541. waitport:    equ -384
  542. closelibrary:    equ -414
  543. opendevice:    equ -444
  544. closedevice:    equ -450
  545. doio:        equ -456
  546. oldopenlibrary    equ -408
  547. openlibrary:    equ -552
  548.  
  549.